Sub Main()	dim i as string	dim f as file   	f = getfile("")	msgbox(f.name)	msgbox("Size=" & getfile("").name.len())
end sub